home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / graphics / dessin.dem.pos < prev    next >
Text File  |  1999-09-16  |  466b  |  24 lines
  1. mode(-1)
  2. oldln=lines()
  3. lines(0)
  4.  
  5. deff('[]=xdemo(info,str)',['x_message([info;str]);xbasc();';
  6.                            'write(%io(2),str)';
  7.                            'execstr(str)']);
  8. xset("default");
  9.  
  10. exec('SCI/demos/graphics/dessin-1.dem');
  11. deff('[y]=halt()','y=10');
  12.  
  13. nn=prod(size(str_l))
  14. driver("Rec");
  15. for i=1:nn-2,
  16.     xset("window",0)
  17.     execstr(str_l(i));
  18.     xbasimp([0],'test'+string(i),1);
  19.     xs2fig(0,'test'+string(i)+'.fig');
  20.     xbasc([0]);
  21. end
  22.  
  23.  
  24.